From: Jay Belanger Date: Sat, 23 Jun 2007 04:36:29 +0000 (+0000) Subject: (math-fixnum-big): Use the variable math-bignum-digit-size. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18218 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3bace0a8319283235ae8ea342a6ae855bc123cf0;p=emacs.git (math-fixnum-big): Use the variable math-bignum-digit-size. --- diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index 9650bdffbcf..2816941f87a 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el @@ -2222,7 +2222,7 @@ calc-kill calc-kill-region calc-yank)))) (defun math-fixnum-big (a) (if (cdr a) - (+ (car a) (* (math-fixnum-big (cdr a)) 1000)) + (+ (car a) (* (math-fixnum-big (cdr a)) math-bignum-digit-size)) (car a))) (defvar math-simplify-only nil)